home *** CD-ROM | disk | FTP | other *** search
- @echo off
- echo off
- echo Test DMBB (c) Daniel MONTARON 1989.
- REM ╔═══════════════════════════╦═══════════════════════════╗
- REM ║ Attention !! ║ WARNING !!! ║
- REM ║ IF ERRORLEVEL = X ║ IF ERRORLEVEL = X ║
- REM ║ doit etre compris comme : ║ must be interpreted as: ║
- REM ║ if errorlevel SUPÉRIEUR ║ if errorlevel GREATER ║
- REM ║ ou égal à X ║ or equal to X ║
- REM ╚═══════════════════════════╩═══════════════════════════╝
-
- dmbb type
- for %%x in (0 1 2 3 4 5 6 7 8) do if errorlevel=%%x set Z=%%x
- goto %z%
- :0
- echo Your computer is ancient...
- echo (Votre ordinateur est ... une antiquité !)
- goto fin
- :1
- echo You have got the first XT.
- echo (Vous possédez un vieil XT de derrière les fagots...)
- goto fin
- :2
- echo You're the last guy with a PC-Junior.
- echo (Vous êtes le dernier à possèder un PC-Junior...)
- goto fin
- :3
- dmbb mod
- for %%x in (1 2 4 5 9) do if errorlevel=%%x set Z=b%%x
- goto %z%
- :b1
- echo Shall you got an AT (or compatible) ?
- echo (N'auriez-vous pas un AT ou compatible AT ?)
- goto fin
- :b2
- echo You have got an XT (or compatible) 80286.
- echo (Vous possédez un XT -ou compatible- 80286.)
- goto fin
- :b4
- echo Hey ! A PS/2 type 50
- echo (Tiens ! Un PS/2 type 50)
- goto fin
- :b5
- echo Hey ! A PS/2 type 60
- echo (Tiens ! Un PS/2 type 60)
- goto fin
- :b9
- echo Fine ! A PS/2 type 30 - 80286
- echo (Excellent! Un PS/2 type 30 - 80286)
- goto fin
- :4
- echo You have got a second generation XT.
- echo (Votre bécane est un XT ou compatible XT modèle 2)
- goto fin
- :5
- echo Nice! You have got an PS/2 modele 30.
- echo Bravo ! Vous avez un PS/2 modèle 30.
- goto fin
- :6
- echo A PC Convertible (It's possible ?)
- echo Vous avez un PC Convertible (Ça existe ?)
- goto fin
- :7
- dmbb mod
- if errorlevel= 1 goto a1
- echo PS/2 type 70...
- goto fin
- :a1
- echo PS/2 type 80 !?!
- goto fin
- :8
- echo I'm confuse...
- echo (J'connais pas votre bécane !)
- :fin
- set Z=
-